home *** CD-ROM | disk | FTP | other *** search
/ System Booster / System Booster.iso / Desktop Improver / NewEdit 1.15 / Install NewEdit next >
Text File  |  1996-09-26  |  24KB  |  643 lines
  1. ; $VER: Install NewEdit 1.15 © Uwe Röhm (20. September 1995)
  2.  
  3. (complete 0)
  4.  
  5. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  6. ;
  7. ; NAMING SECTION
  8. ;
  9. ; first of all I set some vars to file names. This will help me changing
  10. ; names easily.
  11. ;
  12. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  13. ;
  14. ( set #NewEdit "NewEdit" )           ; name of the game
  15. ( set #Calculus "calculus.library" ) ; name of help library
  16.  
  17. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  18. ;
  19. ; LANGUAGE SECTION
  20. ;
  21. ; to support more than only one language, there is a special section for
  22. ; each supported language.
  23. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  24. ;
  25. (if (AND (<> @language "english") (<> @language "deutsch"))
  26.    (set @language "english")
  27. )
  28.  
  29. ;=============================================================================
  30. ; English strings
  31. ;=============================================================================
  32. (if (= @language "english") (
  33.  
  34.    (set default_lang 4)
  35.  
  36.    (set #bad-kick
  37.    (cat "You must use at least Kickstart 2.0 to install " #NewEdit
  38.    ))
  39.  
  40.    (set #introduction
  41.    (cat "This program will install the commodity " #NewEdit ", "
  42.         "which improves the functionality of all string gadgets "
  43.         "in the system. Please read the guide for details.\n\n"
  44.         "The installation takes care of the operating system "
  45.         "version and doesn't change any important file or directory "
  46.         "without your permission."
  47.    ))
  48.  
  49.    (set #ask-installdir
  50.    (cat "Please choose a directory, where " #NewEdit
  51.         " should be installed."
  52.    ))
  53.  
  54.    (set #ask-installdir-help
  55.    (cat "You have to choose a directory, where the software will be copied. "
  56.         "This directory must exist. Please create one, if necessary. "
  57.    ))
  58.  
  59.    (set #ask-catalogdir
  60.    (cat "Please choose a directory, where " #NewEdit "'s catalog"
  61.         " should be installed."
  62.    ))
  63.  
  64.    (set #ask-catalogdir-help
  65.    (cat "You have to choose a directory, where the catalog file will be copied. "
  66.         "This directory must exist. Please create one, if necessary. "
  67.    ))
  68.  
  69.    (set #ask-guidedir
  70.    (cat "Please choose a directory, where " #NewEdit "'s documentation"
  71.         " should be installed."
  72.    ))
  73.  
  74.    (set #ask-guidedir-help
  75.    (cat "You have to choose a directory, where the documentation will be copied. "
  76.         "This directory must exist. Please create one, if necessary.\n\n"
  77.         "At the moment there's only a german AmigaGuide file. The english "
  78.         "documentation is only available as a text file. Sorry ;-)"
  79.    ))
  80.  
  81.    (set #ask-libsdir
  82.    (cat "Please choose the directory, where the " #Calculus
  83.         " should be installed."
  84.    ))
  85.  
  86.    (set #ask-libsdir-help
  87.    (cat "You have to choose a directory, where the " #Calculus " will be copied. "
  88.         "Normally this will be \"libs:\".\n\n"
  89.         "The choosed directory must exist. Please create one, if necessary."
  90.    ))
  91.  
  92.    (set #ask-tooltypemask
  93.    (cat "Which options of " #NewEdit " do you want to enable?"
  94.    ))
  95.  
  96.    (set #ask-tooltypemask-help
  97.    (cat #NewEdit " can be configurated with 10 options. "
  98.         "Here the first four are presented.\n\n"
  99.         "As some key combinations may be in use by other tools too, "
  100.         "you can disable the use of the right Alt or the right Amiga key as "
  101.         "command invoking key. The same holds for the control key. "
  102.         "Additionally you can switch off the Escape key, which " #NewEdit
  103.         " would normally use to leave a string gadget."
  104.    ))
  105.  
  106.    (set #No-Right-Alt   "Don't use right Alt key")
  107.    (set #No-Right-Amiga "Don't use right Amiga key")
  108.    (set #No-Control     "Disable Control-key-commands")
  109.    (set #No-Escape      "No leaving of gadgets with Escape")
  110.    
  111.    (set #ask-clipunit
  112.    (cat "Please specify the clipboard unit to use for the "
  113.         "copy/paste feature of " #NewEdit
  114.    ))
  115.    
  116.    (set #ask-clipunit-help
  117.    (cat #NewEdit " extends the string gadgets so that text can "
  118.         "be exchanged between them and the clipboard. The clipboard "
  119.         "is organised into different units from 0 to 255. Unit 0 "
  120.         "is the default unit used by most programs and AmigaOS itself. "
  121.         "I would recommend to leave the clip unit 0 which is the "
  122.         "default value in " #NewEdit"."
  123.    ))
  124.  
  125.    (set #ask-keys 
  126.    (cat "Do you want to customize the command keys of " #NewEdit "?" 
  127.    ))
  128.    (set #ask-keys-help 
  129.    (cat "There are five functions of " #NewEdit " for which you can specify "
  130.         "the command keys. If you answer with 'Yes' you will be asked for "
  131.         "these five keys. Else the default settings are used."
  132.    ))
  133.  
  134.    (set #ask-calc-key
  135.    (cat "Which key should be used to evaluate a string gadgets contents "
  136.         "as mathematical expression?"
  137.    ))
  138.  
  139.    (set #ask-calc-key-help
  140.    (cat "Please enter one single character as the command key to evaluate "
  141.         "a string gadgets contents as a mathematical expression. "
  142.         "Normally this function will be invoked with the combination 'right Alt e' "
  143.         "or 'right Amiga e'.\n\n"
  144.         "Currently you can only enter one character to alter the command key "
  145.         "of the function. Especially the command qualifiers 'right Alt' or "
  146.         "'right Amiga' can not bechanged."
  147.    ))
  148.  
  149.    (set #ask-case-key
  150.    (cat "With which key do you want to toggle the case of single characters?"
  151.    ))
  152.  
  153.    (set #ask-case-key-help
  154.    (cat "Please enter one single character as the command key to toggle "
  155.         "the case of characters in a string gadget. "
  156.         "Normally this function will be invoked with the combination 'right Alt g' "
  157.         "or 'right Amiga g'.\n\n"
  158.         "Currently you can only enter one character to alter the command key "
  159.         "of the function. Especially the command qualifiers 'right Alt' or "
  160.         "'right Amiga' can not bechanged."
  161.    ))
  162.  
  163.    (set #ask-count-key
  164.    (cat "With which key do you want to increase and decrease a numbered file name?"
  165.    ))
  166.  
  167.    (set #ask-count-key-help
  168.    (cat "Please enter one single character as the command key to increase or "
  169.         "decrease the count of a numbered file name."
  170.         "Normally this function will be invoked with the combination 'right Alt i' "
  171.         "or 'right Amiga i'.\n\n"
  172.         "Currently you can only enter one character to alter the command key "
  173.         "of the function. Especially the command qualifiers 'right Alt' or "
  174.         "'right Amiga' can not bechanged."
  175.    ))
  176.  
  177.    (set #ask-date-key
  178.    (cat "Which key should insert the current date?"
  179.    ))
  180.  
  181.    (set #ask-date-key-help
  182.    (cat "Please enter one single character as the command key to insert "
  183.         "the current date in a string gadget. "
  184.         "Normally this function will be invoked with the combination 'right Alt d' "
  185.         "or 'right Amiga d'.\n\n"
  186.         "Currently you can only enter one character to alter the command key "
  187.         "of the function. Especially the command qualifiers 'right Alt' or "
  188.         "'right Amiga' can not bechanged."
  189.    ))
  190.  
  191.    (set #ask-time-key
  192.    (cat "Which key should insert the current time?"
  193.    ))
  194.  
  195.    (set #ask-time-key-help
  196.    (cat "Please enter one single character as the command key to insert "
  197.         "the current time into a string gadget."
  198.         "Normally this function will be invoked with the combination 'right Alt t' "
  199.         "or 'right Amiga t'.\n\n"
  200.         "Currently you can only enter one character to alter the command key "
  201.         "of the function. Especially the command qualifiers 'right Alt' or "
  202.         "'right Amiga' can not bechanged."
  203.    ))
  204.  
  205.    )
  206. ) ; if english
  207.  
  208. ;=============================================================================
  209. ; German strings
  210. ;=============================================================================
  211. (if (= @language "deutsch") (
  212.  
  213.    (set default_lang 2)
  214.  
  215.    (set #bad-kick
  216.    (cat "Sie müssen Kickstart 2.0 (oder höher) zum Installieren von "
  217.         #NewEdit " benutzen."
  218.    ))
  219.  
  220.    (set #introduction
  221.    (cat "Sie installieren nun das Hilfsprogramm " #NewEdit ", "
  222.         "das die Fähigkeiten aller Texteingabefelder im System "
  223.         "erweitert. Näheres steht in der beiliegenden Anleitung.\n\n"
  224.         "Die Installation nimmt alle notwendigen Schritte vor "
  225.         "und beachtet auch die aktuelle Betriebssystemversion. "
  226.         "Es werden bei der Installation ohne Nachfrage keine System-Dateien "
  227.         "verändert."
  228.    ))
  229.  
  230.    (set #ask-installdir
  231.    (cat "Bitte geben Sie ein Verzeichnis an, in welchem " #NewEdit
  232.         " installiert werden soll."
  233.    ))
  234.  
  235.    (set #ask-installdir-help
  236.    (cat #NewEdit " wird in das Verzeichnis kopiert, das Sie angeben. "
  237.         "Sollte das Verzeichnis noch nicht existieren, legen Sie "
  238.         "es bitte an."
  239.    ))
  240.  
  241.    (set #ask-catalogdir
  242.    (cat "Bitte geben Sie ein Verzeichnis an, in welches die Catalog-Datei "
  243.         "zu " #NewEdit " kopiert werden soll."
  244.    ))
  245.  
  246.    (set #ask-catalogdir-help
  247.    (cat "Damit " #NewEdit " deutsche Fehlermeldungen und Texte ausgibt, "
  248.         "benötigt es seine deutsche Catalog-Datei. Diese wird normalerweise "
  249.         "in \"Locale:Catalogs/deutsch/\" gespeichert.\n\n"
  250.         "Sollte das gewünschte Verzeichnis noch nicht existieren, legen Sie "
  251.         "es bitte an."
  252.    ))
  253.  
  254.    (set #ask-guidedir
  255.    (cat "Bitte geben Sie ein Verzeichnis an, in welches die Dokumentation "
  256.         "zu " #NewEdit " kopiert werden soll."
  257.    ))
  258.  
  259.    (set #ask-guidedir-help
  260.    (cat "Die Dokumentation liegt im AmigaGuide-Format vor. Sie wird "
  261.         "in das Verzeichnis kopiert, das Sie angeben. "
  262.         "Sollte das Verzeichnis noch nicht existieren, legen Sie "
  263.         "es bitte an."
  264.    ))
  265.  
  266.    (set #ask-libsdir
  267.    (cat "Bitte geben Sie ein Verzeichnis an, in welches die " #Calculus
  268.        " kopiert werden soll."
  269.    ))
  270.  
  271.    (set #ask-libsdir-help
  272.    (cat "Um mathematische Formeln in Eingabefeldern ausrechnen zu können, "
  273.         "benötigt " #NewEdit " die " #Calculus ". Das Programm kann aber auch "
  274.         "ohne diese Library verwendet werden.\n\n"
  275.         "Die " #Calculus " wird in das Verzeichnis kopiert, das Sie angeben, "
  276.         "sofern nicht bereits eine neuere Version installiert ist. "
  277.         "Normalerweise sollte es \"libs:\" sein. Sollte das gewünschte "
  278.         "Verzeichnis noch nicht existieren, legen Sie es bitte an."
  279.    ))
  280.  
  281.    (set #ask-tooltypemask
  282.    (cat "Welche Optionen von " #NewEdit " wollen Sie ändern?"
  283.    ))
  284.    (set #ask-tooltypemask-help
  285.    (cat #NewEdit " kann mit insgesamt zehn Optionen konfiguriert werden. "
  286.         "Sie können hier die ersten vier an Ihre Bedürfnisse anpassen.\n\n"
  287.         "Da einige Tastenkombinationen auch von anderen Programmen belegt "
  288.         "sein können, können Sie die Verwendung der rechten Alt und/oder "
  289.         "der rechten Amiga Taste als Kommandotaste abschalten. Dasselbe "
  290.         "gilt für die zusätzlichen Funktionen von " #NewEdit ", die mit "
  291.         "der Control-Taste aufgerufen werden. Außerdem können Sie verhindern, "
  292.         "daß man mit der Escape-Taste ein Texteingabefeld verlassen kann."
  293.    ))
  294.  
  295.    (set #No-Right-Alt   "Rechte Alt-Taste nicht verwenden")
  296.    (set #No-Right-Amiga "Rechte Amiga-Taste nicht verwenden")
  297.    (set #No-Control     "Control-Tastenkomandos nicht verwenden")
  298.    (set #No-Escape      "Kein Eingabeende mit Escape")
  299.    
  300.    (set #ask-clipunit
  301.    (cat "Bitte geben Sie die Einheit des Clipboards an, die "
  302.         "für das Kopieren von Text zwischen Eingabefeldern "
  303.         "verwendet werden soll."
  304.    ))
  305.    
  306.    (set #ask-clipunit-help
  307.    (cat #NewEdit " erweitert Texteingabefelder um die Möglichkeit, "
  308.         "Texte zwischen ihnen über das Clipboard auszutauschen. Das "
  309.         "Clipboard bietet dazu mehrere Einheiten an, in die Texte "
  310.         "gespeichert werden können. Per Voreinstellung würde " #NewEdit
  311.         " Einheit 0 verwenden, die auch sonst im System im allgemeinen "
  312.         "zum Datenaustausch benutzt wird."
  313.    ))
  314.  
  315.    (set #ask-keys 
  316.    (cat "Möchten Sie die " #NewEdit "s Tastenbelegung ändern?" 
  317.    ))
  318.    (set #ask-keys-help 
  319.    (cat "Derzeit können die Tasten von fünf Funktionen, die " #NewEdit 
  320.         " anbietet, frei konfiguriert werden. Wenn Sie jetzt mit 'Ja' "
  321.         "antworten, werden Sie nach den alternativen Belegungen für diese "
  322.         "fünf Funktionen befragt. Sonst benutzt " #NewEdit " die Vorgabewerte.\n\n"
  323.         "Für alle Tasten kann derzeit nur ein Buchstabe angegeben werden, "
  324.         "die jeweiligen Kommandotasten (rechte Alt und rechte Amiga) können "
  325.         "nicht geändert werden." 
  326.    ))
  327.  
  328.    (set #ask-calc-key
  329.    (cat "Mit welche Taste soll das Auswerten des Inhalts eines Textfeldes "
  330.         "als mathematischer Ausdruck gestartet werden?"
  331.    ))
  332.  
  333.    (set #ask-calc-key-help
  334.    (cat "Bitte geben Sie die Taste an, mit der der jeweilige Inhalt eines "
  335.         "Texteingabefeldes als mathematischer Ausdruck ausgewertet und "
  336.         "durch sein Ergebnis ersetzt werden soll. Normalerweise wird dies "
  337.         "mit der Kombination 'rechte Alt e' oder 'rechte Amiga e' erreicht.\n\n"
  338.         "Sie können derzeit nur den einen Buchstaben verändern, "
  339.         "die jeweiligen Kommandotasten (rechte Alt und rechte Amiga) können "
  340.         "nicht geändert werden." 
  341.    ))
  342.  
  343.    (set #ask-case-key
  344.    (cat "Mit welche Taste wollen Sie die Groß-/Kleinschreibung "
  345.         "von Buchstaben ändern können?"
  346.    ))
  347.  
  348.    (set #ask-case-key-help
  349.    (cat "Bitte geben Sie eine einzelne Taste an, mit der Sie zwischen Groß- "
  350.         "und Kleinschreibung einzelner Buchstaben umschalten wollen. "
  351.         "Normalerweise wird dies mit der Kombination 'rechte Alt g' oder "
  352.         "'rechte Amiga g' erreicht.\n\n"
  353.         "Sie können derzeit nur den einen Buchstaben verändern, "
  354.         "die jeweiligen Kommandotasten (rechte Alt und rechte Amiga) können "
  355.         "nicht geändert werden." 
  356.    ))
  357.  
  358.    (set #ask-count-key
  359.    (cat "Mit welche Taste wollen Sie nummerierte Dateinamen erhöhen, "
  360.         "bzw. erniedrigen?"
  361.    ))
  362.  
  363.    (set #ask-count-key-help
  364.    (cat "Bitte geben Sie eine einzelne Taste an, mit der Sie die Nummer "
  365.         "eines durchnummerierten Dateinamens hoch- und runterzählen können. "
  366.         "Normalerweise wird dies mit der Kombination 'rechte Alt i' oder "
  367.         "'rechte Amiga i' erreicht.\n\n"
  368.         "Sie können derzeit nur den einen Buchstaben verändern, "
  369.         "die jeweiligen Kommandotasten (rechte Alt und rechte Amiga) können "
  370.         "nicht geändert werden." 
  371.    ))
  372.  
  373.    (set #ask-date-key
  374.    (cat "Mit welche Taste wollen Sie das aktuelle Datum einfügen?"
  375.    ))
  376.  
  377.    (set #ask-date-key-help
  378.    (cat "Bitte geben Sie eine einzelne Taste an, mit der Sie das jeweils "
  379.         "aktuelle Datum in ein Texteingabefeld einfügen können. "
  380.         "Normalerweise ist dies mit der Kombination 'rechte Alt d' oder "
  381.         "'rechte Amiga d' möglich.\n\n"
  382.         "Sie können derzeit nur den einen Buchstaben verändern, "
  383.         "die jeweiligen Kommandotasten (rechte Alt und rechte Amiga) können "
  384.         "nicht geändert werden." 
  385.    ))
  386.  
  387.    (set #ask-time-key
  388.    (cat "Mit welche Taste wollen Sie die aktuelle Uhrzeit einfügen?"
  389.    ))
  390.  
  391.    (set #ask-time-key-help
  392.    (cat "Bitte geben Sie eine einzelne Taste an, mit der Sie die jeweils "
  393.         "aktuelle Uhrzeit in ein Texteingabefeld einfügen können. "
  394.        "Normalerweise ist dies mit der Kombination 'rechte Alt t' oder "
  395.         "'rechte Amiga t' möglich.\n\n"
  396.         "Sie können derzeit nur den einen Buchstaben verändern, "
  397.         "die jeweiligen Kommandotasten (rechte Alt und rechte Amiga) können "
  398.         "nicht geändert werden." 
  399.    ))
  400.    )
  401. ) ; if deutsch
  402.  
  403.  
  404. ;=============================================================================
  405. ; make sure we are running under V37
  406.  
  407. (if (< (/ (getversion) 65536) 37) (abort #bad-kick))
  408.  
  409. ;******************************************************************
  410. ;******************* FULL INSTALL *********************************
  411. ;******************************************************************
  412.  
  413. ;=============================================================================
  414. ; say hi!
  415. ;=============================================================================
  416. (welcome)
  417.  
  418. ;=============================================================================
  419. ; what we will do the next time together
  420. ;=============================================================================
  421. (message #introduction)
  422.  
  423. ;=============================================================================
  424. ; first we will get the dirs we need
  425. ;=============================================================================
  426. (set old_level @user-level)
  427. (set sourcedir (pathonly @icon))
  428. (set #defaulttarget "Sys:WBStartup")
  429. (set target (askdir (prompt  #ask-installdir)
  430.                     (help    #ask-installdir-help)
  431.                     (default #defaulttarget)
  432.             )
  433. )
  434. (set @default-dest target)
  435.  
  436. ;=============================================================================
  437. ; copy the program itself
  438. ;=============================================================================
  439. (copyfiles (source "NewEdit")
  440.            (dest   target)
  441.            (infos)
  442. )
  443. (complete 10)
  444.  
  445. ;=============================================================================
  446. ; copy the catalog file(s)
  447. ;=============================================================================
  448. (if (<> @language "english") 
  449.   (
  450.  
  451.     (set #defcattarget (tackon "Locale:Catalogs/" @language))
  452.     (set cattarget (askdir (prompt  #ask-catalogdir)
  453.                            (help    #ask-catalogdir-help)
  454.                            (default #defcattarget)
  455.                    )
  456.     )
  457.     (copyfiles (source (tackon "catalogs/" (tackon @language "NewEdit.catalog")))
  458.                (dest   cattarget)
  459.     )
  460.   )
  461. )
  462. (complete 20)
  463.  
  464. ;=============================================================================
  465. ; ask for the options to use
  466. ;=============================================================================
  467. (if (>= @user-level 1)
  468.   (
  469.     (set tooltypemask (askoptions (prompt  #ask-tooltypemask)
  470.                                   (help    #ask-tooltypemask-help)
  471.                                   (choices #No-Right-Alt
  472.                                            #No-Right-Amiga
  473.                                            #No-Control
  474.                                            #No-Escape
  475.                                   )
  476.                                   (default %0000)
  477.                       )
  478.     )
  479.     (if (IN tooltypemask 0)
  480.         (tooltype (settooltype "NOALT" "1")
  481.                   (dest        (tackon target #NewEdit))
  482.         ) 
  483.     )
  484.     (if (IN tooltypemask 1)
  485.         (tooltype (settooltype "NOAMIGA" "1")
  486.                   (dest        (tackon target #NewEdit))
  487.         ) 
  488.     )
  489.     (if (IN tooltypemask 2)
  490.         (tooltype (settooltype "NOCONTROL" "1")
  491.                   (dest        (tackon target #NewEdit))
  492.         ) 
  493.     )
  494.     (if (IN tooltypemask 3)
  495.         (tooltype (settooltype "NOESC" "1")
  496.                   (dest        (tackon target #NewEdit))
  497.         ) 
  498.     )
  499.  
  500.     (complete 30)
  501.  
  502.     ;=============================================================================
  503.     ; ask for the clipboard unit
  504.     ;=============================================================================
  505.     (set unit     (asknumber  (prompt  #ask-clipunit)
  506.                               (help    #ask-clipunit-help)
  507.                               (range   0 255)
  508.                               (default 0)
  509.                   )
  510.     )
  511.     (if (<> unit 0)
  512.         (tooltype (settooltype "CLIPUNIT" ("%s" unit))
  513.                   (dest        (tackon target #NewEdit))
  514.         ) 
  515.     )
  516.  
  517.     (complete 40)
  518.  
  519.     ;=========================================================================
  520.     ; ask for alternate keys
  521.     ;=========================================================================
  522.     (if (askbool    (prompt  #ask-keys)
  523.                     (help    #ask-keys-help)
  524.                     (default 0)
  525.         )
  526.     (
  527.         ;=====================================================================
  528.         ; ask for Calculus-Key
  529.         ;=====================================================================
  530.         (set key (askstring (prompt #ask-calc-key)
  531.                             (help   #ask-calc-key-help)
  532.                             (default "e")
  533.                  )
  534.         )
  535.         (if (<> key "e")
  536.             (tooltype (settooltype "CALCKEY" key)
  537.                       (dest        (tackon target #NewEdit))
  538.             )
  539.         ) 
  540.         (complete 48)
  541.  
  542.         ;=====================================================================
  543.         ; ask for Case-Key
  544.         ;=====================================================================
  545.         (set key (askstring (prompt #ask-case-key)
  546.                             (help   #ask-case-key-help)
  547.                             (default "g")
  548.                      )
  549.         )
  550.         (if (<> key "g")
  551.             (tooltype (settooltype "CASEKEY" key)
  552.                       (dest        (tackon target #NewEdit))
  553.             )
  554.         ) 
  555.         (complete 56)
  556.  
  557.         ;=====================================================================
  558.         ; ask for Count-Key
  559.         ;=====================================================================
  560.         (set key (askstring (prompt #ask-count-key)
  561.                             (help   #ask-count-key-help)
  562.                             (default "i")
  563.                  )
  564.         )
  565.         (if (<> key "i")
  566.             (tooltype (settooltype "COUNTKEY" key)
  567.                       (dest        (tackon target #NewEdit))
  568.             )
  569.         ) 
  570.         (complete 64)
  571.  
  572.         ;=====================================================================
  573.         ; ask for Date-Key
  574.         ;=====================================================================
  575.         (set key (askstring (prompt #ask-date-key)
  576.                             (help   #ask-date-key-help)
  577.                             (default "d")
  578.                  )
  579.         )
  580.         (if (<> key "d")
  581.             (tooltype (settooltype "DATEKEY" key)
  582.                       (dest        (tackon target #NewEdit))
  583.             )
  584.         ) 
  585.         (complete 72)
  586.  
  587.         ;=====================================================================
  588.         ; ask for Time-Key
  589.         ;=====================================================================
  590.         (set key (askstring (prompt #ask-time-key)
  591.                             (help   #ask-time-key-help)
  592.                             (default "t")
  593.                  )
  594.         )
  595.         (if (<> key "t")
  596.             (tooltype (settooltype "TIMEKEY" key)
  597.                       (dest        (tackon target #NewEdit))
  598.             )
  599.         ) 
  600.     )
  601.     )
  602.  
  603.   ); IF user >= 1
  604. )
  605. (complete 80)
  606.  
  607. ;=============================================================================
  608. ; copy the AmigaGuide documentation
  609. ;=============================================================================
  610. (if (= @language "english") 
  611.    (copyfiles (prompt  #ask-guidedir)
  612.               (help    #ask-guidedir-help)
  613.               (confirm "average")
  614.               (source  "NewEdit.doc")
  615.               (dest    target)
  616.               (infos)
  617.    )
  618.    (copyfiles (prompt  #ask-guidedir)
  619.               (help    #ask-guidedir-help)
  620.               (confirm "average")
  621.               (source  "NewEdit.guide")
  622.               (dest    target)
  623.               (infos)
  624.    )
  625. )
  626. (complete 90)
  627.  
  628. ;=============================================================================
  629. ; eventually copy the calculus.library
  630. ;=============================================================================
  631. (copylib (prompt  #ask-libsdir)
  632.          (help    #ask-libsdir-help)
  633.          (confirm "average")
  634.          (source  "libs/calculus.library")
  635.          (dest    "Libs:")
  636. )
  637. (complete 100)
  638.  
  639. ; **************************************************************************
  640. ; **************************************************************************
  641. ; **************************************************************************
  642. (exit)
  643.